PC Home 109/PC Home 109.iso/data1.cab/Program_Files/MMenu.dxr/00139.ls

Text File | 2001-03-02 | 1.8 KB | 77 lines

on IDAnimation
  if rollOver(14) or rollOver(15) or rollOver(16) or rollOver(17) or rollOver(18) or rollOver(19) or rollOver(20) or rollOver(21) or rollOver(22) or rollOver(23) or rollOver(24) or rollOver(25) or rollOver(26) or (rollOver(27) = 1) then
    startTimer()
    go("ID")
  end if
end

on BEAnimation
  if rollOver(28) or rollOver(29) or rollOver(30) or rollOver(31) or rollOver(32) or rollOver(33) or (rollOver(34) = 1) then
    startTimer()
    go("BE")
  end if
end

on TMAnimation
  if rollOver(35) or rollOver(36) or rollOver(37) or rollOver(38) or rollOver(39) or rollOver(40) or (rollOver(41) = 1) then
    startTimer()
    go("TM")
  end if
end

on THAnimation
  if rollOver(47) or rollOver(48) or rollOver(49) or rollOver(50) or rollOver(51) or rollOver(52) or rollOver(53) or rollOver(54) or rollOver(55) or rollOver(56) or (rollOver(57) = 1) then
    startTimer()
    go("TH")
  end if
end

on GMAnimation
  if rollOver(42) or rollOver(43) or rollOver(44) or rollOver(45) or (rollOver(46) = 1) then
    startTimer()
    go("GM")
  end if
end

on RKAnimation
  if soundBusy(2) = 0 then
    startTimer()
    go("RK")
  else
    nothing()
  end if
end

on SKAnimation
  startTimer()
  go("SK")
end

on quitSound
  if rollOver(8) or (rollOver(9) = 1) then
    set x to random(10)
    if x <= 3 then
      set n to random(3)
      case n of
        1:
          if soundBusy(2) = 0 then
            sound playFile 2, "RndWavs/NoQuit/Oth007.wav"
          end if
        2:
          if soundBusy(2) = 0 then
            sound playFile 2, "RndWavs/NoQuit/Oth012.wav"
          end if
        3:
          if soundBusy(2) = 0 then
            sound playFile 2, "RndWavs/NoQuit/Oth013.wav"
          end if
      end case
    end if
  end if
end

on C
  startTimer()
  go("C")
end